﻿Public Class Arquero : Inherits UnidadBase

    Protected Friend Property Disparo As Integer
    Protected Friend Property Alcance As Integer
    Protected Const FUERZA_ARQ = FUERZA_BASE
    Protected Const ATAQUE_ARQ = ATAQUE_BASE
    Protected Const VELOCIDAD_ARQ = VELOCIDAD_BASE
    Protected Const VIDA_ARQ = VIDA_BASE
    Protected Const COSTE_ARQ = COSTE_BASE + 1
    Protected Const DEFENSA_ARQ = DEFENSA_BASE
    Protected Const DISCIPLINA_ARQ = DISCIPLINA_BASE
    Protected Const TAMAÑO_ARQ = TAMAÑO_BASE
    Protected Const DISPARO_ARQ = 3
    Protected Const ALCANCE_ARQ = 3

    Public Sub New()
        Me.Fuerza = FUERZA_ARQ
        Me.Ataque = ATAQUE_ARQ
        Me.Velocidad = VELOCIDAD_ARQ
        Me.Vida = VIDA_ARQ
        Me.Coste = COSTE_ARQ
        Me.Defensa = DEFENSA_ARQ
        Me.Disciplina = DISCIPLINA_ARQ
        Me.Tamaño = TAMAÑO_ARQ
        Me.Disparo = DISPARO_ARQ
        Me.Alcance = ALCANCE_ARQ
    End Sub

End Class
